home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Apple Demos / Tutorials / Display Card 4•8⁄8•24 Training / Display Card 4•8_8•24 Training / card_13864.txt < prev    next >
Text File  |  1990-03-19  |  5KB  |  240 lines
  1. -- card: 13864 from stack: in
  2. -- bmap block id: 14327
  3. -- flags: 0000
  4. -- background id: 30004
  5. -- name: certificate1
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   answer"Click the Return button to go back."
  9. end mouseUp
  10.  
  11.  
  12.  
  13. -- part 1 (field)
  14. -- low flags: 00
  15. -- high flags: 0000
  16. -- rect: left=128 top=0 right=22 bottom=508
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 0
  20. -- font id: 21
  21. -- text size: 18
  22. -- style flags: 10240
  23. -- line height: 19
  24. -- part name: Title
  25.  
  26.  
  27. -- part 2 (field)
  28. -- low flags: 01
  29. -- high flags: 0000
  30. -- rect: left=128 top=22 right=44 bottom=508
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 0
  34. -- font id: 21
  35. -- text size: 18
  36. -- style flags: 0
  37. -- line height: 20
  38. -- part name: cardTitle
  39.  
  40.  
  41. -- part 3 (field)
  42. -- low flags: 00
  43. -- high flags: 0000
  44. -- rect: left=128 top=70 right=313 bottom=509
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 0
  48. -- font id: 156
  49. -- text size: 14
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: cardText
  53.  
  54.  
  55. -- part 5 (button)
  56. -- low flags: 00
  57. -- high flags: 2000
  58. -- rect: left=484 top=317 right=342 bottom=512
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 18613 / 18613
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: return
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   pop card into lastPush
  70.   if the short name of this stack is not in lastPush then
  71.     visual dissolve
  72.     go card "Map"
  73.   else
  74.     visual dissolve
  75.     go lastPush
  76.   end if
  77. end mouseUp
  78.  
  79.  
  80. -- part 6 (field)
  81. -- low flags: 00
  82. -- high flags: 0000
  83. -- rect: left=129 top=115 right=154 bottom=509
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 0
  87. -- font id: 158
  88. -- text size: 14
  89. -- style flags: 0
  90. -- line height: 18
  91. -- part name: directions
  92.  
  93.  
  94. -- part 7 (button)
  95. -- low flags: 00
  96. -- high flags: A004
  97. -- rect: left=17 top=153 right=196 bottom=116
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 1
  101. -- font id: 3
  102. -- text size: 9
  103. -- style flags: 0
  104. -- line height: 12
  105. -- part name: Print Certificate
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   global printing
  109.   ask "What is your name?"
  110.   if it is "Cancel" then exit mouseUp
  111.   if it is empty then exit mouseUp
  112.   put it into whoAmI
  113.  
  114.   push card
  115.   open printing with dialog
  116.  
  117.   --go card "certificate2"
  118.   --print card
  119.   put "true" into printing
  120.   go card "certificate2"
  121.   put "In Recognition of Completion" into card field "InRec"
  122.   put "has completed the Apple Training Support" into card field "has"
  123.   put "self-paced training stack" into card field "self"
  124.   put "on this date" into card field "date"
  125.   put "Macintosh Graphics Primer" into card field "course"
  126.   put "Ô£ø" into card field "logo"
  127.   put "¬Æ" into card field "regis"
  128.   put "Apple Computer, Inc." into card field "Apple"
  129.   put whoAmI into card field "myName"
  130.   put the long date into card field "theDate"
  131.   print card
  132.  
  133.   close printing
  134.   put "Macintosh User" into card field "myName"
  135.   pop card
  136.   put "false" into printing
  137. end mouseUp
  138.  
  139.  
  140.  
  141. -- part 8 (field)
  142. -- low flags: 00
  143. -- high flags: 0000
  144. -- rect: left=128 top=258 right=312 bottom=485
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 0
  148. -- font id: 158
  149. -- text size: 14
  150. -- style flags: 0
  151. -- line height: 18
  152. -- part name: directions
  153.  
  154.  
  155. -- part 9 (field)
  156. -- low flags: 00
  157. -- high flags: 0000
  158. -- rect: left=128 top=54 right=105 bottom=508
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 0 / 0
  161. -- text alignment: 0
  162. -- font id: 158
  163. -- text size: 14
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: directions
  167.  
  168.  
  169. -- part 10 (button)
  170. -- low flags: 00
  171. -- high flags: 0001
  172. -- rect: left=457 top=317 right=342 bottom=485
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 18622 / 18622
  175. -- text alignment: 1
  176. -- font id: 0
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: next
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.  
  184. end mouseUp
  185.  
  186.  
  187.  
  188. -- part 11 (button)
  189. -- low flags: 00
  190. -- high flags: 0001
  191. -- rect: left=428 top=317 right=342 bottom=456
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 18621 / 18621
  194. -- text alignment: 1
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: prev
  200. ----- HyperTalk script -----
  201. on mouseUp
  202.  
  203. end mouseUp
  204.  
  205.  
  206.  
  207. -- part contents for card part 1
  208. ----- text -----
  209. Macintosh Display Card 4‚Ä¢8 and 8‚Ä¢24
  210.  
  211. -- part contents for card part 2
  212. ----- text -----
  213. Certificate of Completion
  214.  
  215. -- part contents for card part 6
  216. ----- text -----
  217. Read these instructions; click the Print Certificate button.
  218.  
  219. -- part contents for card part 3
  220. ----- text -----
  221.  
  222.  
  223.  
  224.  
  225.  
  226.  
  227. ‚Ä¢  Click the Print Certificate button then type your full name 
  228.  
  229. ‚Ä¢  Select ‚ÄúPrint one card per page‚Äù
  230.  
  231. ‚Ä¢  Click the OK button
  232.  
  233. -- part contents for card part 8
  234. ----- text -----
  235. Click the Return arrow if you do not wish to print the certificate.  You will return to the stack map.
  236.  
  237. -- part contents for card part 9
  238. ----- text -----
  239. Congratulations! You have completed this stack. 
  240. You have the option of printing a Certificate of Completion, or you can return to where you were.